H als Mittelpunkt des Kreises mit Radius R, 
der duch die dreiSpiegelpunkte 
von M_u  an den Seiten geht!

Die Eckensumme A+B+C liefert H
und die halbe Eckensumme daher M_F

M_u = Intersect(xAxis, yAxis)
c_2 = Circle(M_u, 53)
B_1, B_2 = Intersect(c_2, xAxis)
d = Circle(B_2, 45)
e = Circle(M_u, 26)
k = Circle(M_u, 28)
h = Circle(B_2, 45)
E, C_1 = Intersect(h, k)
d2, g_1, a_1, b_1 = Polygon(M_u, B_2, C_1)
f = Line(B_2, C_1)
g = Circle(C_1, 21)
D, C_2 = Intersect(g, f)
abstandAD = Distance(M_u, D)
TextAD: Name[M_u] + (Name[D]) + " = " + abstandAD
d1, b_4, a_4, d_1 = Polygon(M_u, D, B_2)
d3, f_1, a_5, b_5 = Polygon(M_u, B_2, C_2)
abstandCF = Distance(C_1, C_2)
d4, d_2, a_3, b_3 = Polygon(M_u, B_2, D)
Text3 = LaTeX(C_1, true, true)
G = Midpoint(a_3)
M_C = Midpoint(g_1)
M_1 = Midpoint(a_5)
δ = Angle(M_u, C_2, B_2)
p = Circle(M_u, 35)
C_3, H_1 = Intersect(p, a_5)
d5, c_1, a_2, b_2 = Polygon(M_u, B_2, C_3)
umfangd5 = Perimeter(d5)
Punktd5 = PointIn(d5)
i = Distance(b_2, a_2)
Umkreis = Circle(M_u, B_2, C_3)
M_2 = Center(Umkreis)
F = Midpoint(c_1)
I = Midpoint(a_2)
J = Midpoint(b_2)
abstandAMu = Distance(M_u, M_2)
TextAMu: "R = " + abstandAMu + ""
S_1 = Centroid(d5)
v = Vector(M_2, M_u)
A = Translate(M_u, v)
C = Translate(C_3, v)
B = Translate(B_2, v)
d6, c, a, b = Polygon(A, B, C)
q = Circle(M_u, C)
u = Vector(M_u, A)
w = Vector(M_u, B)
j = Vector(M_u, C)
anSeitec__gespiegelt = Mirror(M_u, c)
anagespiegelt = Mirror(M_u, a)
anbgespiegelt = Mirror(M_u, b)
r = Circle(anagespiegelt, anSeitec__gespiegelt, anbgespiegelt)
H = Center(r)
A' = Translate(A, w)
l = Vector(A, A')
K = Translate(anSeitec__gespiegelt, j)
m = Vector(anSeitec__gespiegelt, K)
n = OrthogonalLine(C, c)
s = OrthogonalLine(B, b)
t = OrthogonalLine(A, a)
S = Centroid(d6)
EULER = Line(H, S)
Text2 = LaTeX(H, true, true)
Text4 = LaTeX(A, true, true)
Text5 = LaTeX(B, true, true)
Text6 = LaTeX(C, true, true)
Feuerbachzentrum = Midpoint(H, M_u)
L = Midpoint(b)
M = Midpoint(c)
N = Midpoint(a)
Feuerbachkreis = Circle(L, M, N)
abstandHanagespiegelt = Distance(H, anagespiegelt)
TextHanagespiegelt: Name[H] + (Name[anagespiegelt]) + " = " + abstandHanagespiegelt
abstandFeuerbachzentrumM = Distance(Feuerbachzentrum, M)
TextFeuerbachzentrumM: Name[Feuerbachzentrum] + (Name[M]) + " = " + abstandFeuerbachzentrumM